home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / xdmd1.lha / Roman.xdme < prev    next >
Text File  |  1993-03-28  |  379b  |  21 lines
  1. /* Roman.dme © 1991 Fergus Duniho */
  2. /* Converts Arabic Numerals to Roman */
  3.  
  4. Arg A
  5. R = word("i ii iii iv v vi vii viii ix",A//10)
  6. A = A % 10
  7.  
  8. If A > 0 Then Do
  9.     R = Word("x xx xxx xl l lx lxx lxxx xc",A//10) || R
  10.     A = A % 10
  11. End
  12.  
  13. If A > 0 Then Do
  14.     R = Word("c cc ccc cd d dc dcc dccc cm",A//10) || R
  15.     A = A % 10
  16. End
  17.  
  18. If A > 0 Then R = Word("m mm mmm",A) || R
  19.  
  20. Exit R
  21.